home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / grafica / mpeg2anim / mpegcon < prev    next >
Text File  |  1999-01-01  |  2KB  |  68 lines
  1. c:copy c:copy t:copy
  2. t:copy >nil: c:delete T:del
  3. echo "c*N"
  4. Requestfile >env:MPname TITLE="Choose MPEG to convert"
  5. if warn
  6.    echo >env:msg "Operation canceled....!"
  7.    skip end
  8. endif
  9. if not exists $MPname
  10.    echo >env:msg "File does not exist....!"
  11.    skip end
  12. endif
  13. Requestfile >env:MPdest TITLE="Choose destination path."
  14. if warn
  15.    echo >env:msg "Operation canceled....!"
  16.    skip end
  17. endif
  18. Requestchoice >env:mode "" "Choose output mode" Ham6 Ham8 Ham6_scale Ham8_scale Abort
  19. if val $mode eq 0
  20.    echo >env:msg "Operation canceled....!"
  21.    t:del >nil: env:mode
  22.    skip end
  23. endif
  24. if val $mode GT 2
  25.    echo " Once the mpeg is split you will be asked to enter your scale coordinates.*N"
  26. endif
  27. assign MPT: MPtemp
  28. t:copy >nil: convertMPimage T:cmi
  29. T:del >nil: MPtemp/#?
  30. mp -saveiff MPtemp/pic.%%%%% $MPname
  31. if val $mode GT 2
  32.    SmartScale ask MPT:pic.00001
  33. endif
  34.  
  35. if val $mode eq 3
  36.    if $YIN eq $YOUT
  37.       echo >env:mode 1 
  38.    else
  39.       list >t:ConPics sort name MPT: lformat "t:copy %s%s t:24b*Nt:CMI noprogress format ham6 x $XOUT y $YOUT t:24b to t:iff*Nt:copy t:iff %s%s*Necho  %s"
  40.    endif
  41. endif
  42. if val $mode eq 4
  43.    if $YIN eq $YOUT
  44.       echo >env:mode 2 
  45.    else
  46.       list >t:ConPics sort name MPT: lformat "t:copy %s%s t:24b*Nt:CMI noprogress format ham8 x $XOUT y $YOUT t:24b to t:iff*Nt:copy t:iff %s%s*Necho  %s"
  47.    endif
  48. endif 
  49. if val $mode eq 1
  50.    list >t:ConPics sort name MPT: lformat "t:copy %s%s t:24b*Nt:CMI noprogress format ham6 t:24b to t:iff*Nt:copy t:iff %s%s*Necho  %s"
  51. endif
  52. if val $mode eq 2
  53.    list >t:ConPics sort name MPT: lformat "t:copy %s%s t:24b*Nt:CMI noprogress format ham8 t:24b to t:iff*Nt:copy t:iff %s%s*Necho  %s"
  54. endif
  55. ECHO "*N MPEG is split, now converting pics.*N*N"
  56. execute T:ConPics
  57. echo ""
  58.  
  59. t:del >nil: t:24b t:iff t:cmi
  60. list sort name >T:ConPics MPtemp lformat "0 %s%s"
  61. mkanim using T:conpics to $MPdest
  62. T:del >nil: env:MP#? t:conpics MPtemp/#? env:mode env:xin env:yin env:din env:xout env:yout ENV:XINh env:PN
  63. echo >env:msg "Mpeg2anim successfully completed."
  64. lab end
  65. Requestchoice >nil: "" "$msg" OK
  66. t:del >nil: env:msg t:copy t:del
  67. endcli
  68.